Imports System.ComponentModel

<Serializable()> _
Public Class Section10
    Inherits BaseDescriptor

    <Serializable(), TypeConverter(GetType(CustomExpandableObjectConverter))> _
    Public Class SectionVOP
        Inherits BaseDescriptor

        Private _LAMBDA As Double
        Private _RILAM As Double
        Private _ALPHA As Double

        <Browsable(False)> _
        Public Property LAMBDA() As Double
            Get
                Return _LAMBDA
            End Get
            Set(ByVal value As Double)
                _LAMBDA = value
            End Set
        End Property

        <CustomOrder(1), CustomDisplayName("RILAM"), CustomDescription("RILAM"), DefaultValue(0.0), TypeConverter(GetType(CustomDoubleConverter))> _
        Public Property RILAM() As Double
            Get
                Return _RILAM
            End Get
            Set(ByVal value As Double)
                _RILAM = value
            End Set
        End Property

        <CustomOrder(2), CustomDisplayName("ALPHA"), CustomDescription("ALPHA"), DefaultValue(0.0), TypeConverter(GetType(CustomDoubleConverter))> _
        Public Property ALPHA() As Double
            Get
                Return _ALPHA
            End Get
            Set(ByVal value As Double)
                _ALPHA = value
            End Set
        End Property

    End Class

    'S10C
    Private _VOP As New List(Of SectionVOP)

    <CustomCategory("S10C"), CustomDisplayName("VOP"), CustomDescription("VOP"), TypeConverter(GetType(CustomArrayConverter)), [ReadOnly](True)> _
    Public Property VOP() As SectionVOP()
        Get
            Return Me.Items.ToArray
        End Get
        Set(ByVal value As SectionVOP())
            Me.Items.Clear()
            For Each objSectionVOP As SectionVOP In value
                Me.Items.Add(objSectionVOP)
            Next
        End Set
    End Property

    <Browsable(False)> _
    Public ReadOnly Property Items() As List(Of SectionVOP)
        Get
            Return _VOP
        End Get
    End Property

End Class
